home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / clipview.gc < prev    next >
Text File  |  1999-05-14  |  2KB  |  100 lines
  1. G4C
  2.  
  3. ;       ClipView.gc
  4. ; --------------------------------------------------------
  5. ;       How to use the ClipBoard capabilities.
  6. ;       This gui will show you whatever is in the given 
  7. ;       clipboard unit. Also you can load/save clips.
  8. ;    A more advanced version is guis:g4c/ced/cedclip.g
  9. ; --------------------------------------------------------
  10.  
  11. WINBIG 110 40 437 169 'Clipboard Viewer'
  12. WinType 11110001
  13.  
  14. xOnLoad
  15.     unit = 0        ; our default clipboard unit
  16.     GuiOpen ClipView.gc
  17.  
  18. xOnClose
  19.     GuiQuit ClipView.gc
  20.  
  21. BOX 0 0 437 20 OUT ICONDROP
  22.  
  23. ; --------------------------------------------------------
  24. ;       Change the clipboard unit
  25. ; --------------------------------------------------------
  26.  
  27. XBUTTON 401 4 30 12 ">>"
  28.     ++unit
  29.     gosub clipview.gc changeunit
  30.  
  31. XBUTTON 302 4 30 12 "<<"
  32.     --unit
  33.     gosub clipview.gc changeunit
  34.  
  35. XTEXTIN 338 3 58 14 "" unit '0' 10
  36.     gadid 2
  37.     gosub clipview.gc changeunit
  38.  
  39. xRoutine ChangeUnit
  40.     ; make sure the unit is 0-255
  41.     if $unit > 255
  42.        unit = 0
  43.     elseif $unit < 0
  44.        unit = 255
  45.     endif
  46.     ; load the given clip..
  47.     lvuse clipview.gc 1
  48.     lvchange "CLIPS:$unit"
  49.     update clipview.gc 2 $unit
  50.  
  51. ; --------------------------------------------------------
  52. ;       Load a file into the current clipboard unit
  53. ; --------------------------------------------------------
  54.  
  55. XBUTTON 7 4 80 12 "Load.."
  56.     ReqFile  -1 -1 300 -30 'Choose file :' LOAD filename ''
  57.     if $filename > ''
  58.        lvuse clipview.gc 1
  59.        lvchange $filename
  60.        ; now save it so as to write it to the clipboard
  61.        lvsave 'CLIPS:$unit'
  62.     endif
  63.  
  64. ; --------------------------------------------------------
  65. ;       Save the current clipboard unit as a file
  66. ; --------------------------------------------------------
  67.  
  68. XBUTTON 88 4 80 12 "Save.."
  69.     ReqFile  -1 -1 300 -30 'Save as file :' SAVE savename ''
  70.     if $savename > ' '
  71.        ifexists file $savename
  72.           ezreq 'File $savename exists.\nOverwrite ?' Overwrite|CANCEL choice
  73.           if $choice = 0
  74.              stop
  75.           endif
  76.        endif
  77.        lvsave $savename
  78.     endif
  79.  
  80. ; --------------------------------------------------------
  81. ;       Clear the current clipboard unit
  82. ; --------------------------------------------------------
  83.  
  84. XBUTTON 169 4 80 12 "Clear"
  85.     lvuse clipview.gc 1
  86.     lvclear
  87.     ; update the clipboard
  88.     lvsave 'CLIPS:$unit'
  89.  
  90. ; --------------------------------------------------------
  91. ;       The listview
  92. ; --------------------------------------------------------
  93.  
  94. XLISTVIEW 0 20 436 148 "" clipline CLIPS:0 10 NUM
  95.     gadid 1
  96.  
  97.  
  98.  
  99.  
  100.